(in-package :procemu)

(defclass instruction ()
  ()
  (:documentation "Any CPU instruction"))

(defgeneric perform (instruction cpu)
  (:documentation "Perform an instruction"))

(defmethod perform :before (instruction (cpu cpu))
  (incf (instruction-pointer cpu)))